﻿Public Class NotaCredito

    Dim _cia As String
    Dim _suc As String
    Dim _tipo As String
    Dim _dcicodigo As String
    Dim _clicodigo As String
    Dim _est As String

    Sub New()

    End Sub

    Sub New(cia As String, suc As String, tipo As String, ByVal dcicod As String, ByVal clicod As String, est As String)
        Me._cia = cia
        Me._suc = suc
        Me._tipo = tipo
        Me._dcicodigo = dcicod
        Me._clicodigo = clicod
        Me._est = est
    End Sub

    Public Property CIA() As String
        Get
            Return _cia
        End Get
        Set(value As String)
            _cia = value
        End Set
    End Property

    Public Property SUC() As String
        Get
            Return _suc
        End Get
        Set(value As String)
            _suc = value
        End Set
    End Property

    Public Property TIPO() As String
        Get
            Return _tipo
        End Get
        Set(value As String)
            _tipo = value
        End Set
    End Property

    Public Property DCI_Codigo() As String
        Get
            Return _dcicodigo
        End Get
        Set(ByVal value As String)
            _dcicodigo = value
        End Set
    End Property

    Public Property CLI_Codigo() As String
        Get
            Return _clicodigo
        End Get
        Set(ByVal value As String)
            _clicodigo = value
        End Set
    End Property

    Public Property EST() As String
        Get
            Return _est
        End Get
        Set(value As String)
            _est = value
        End Set
    End Property

End Class
